home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-19 / pkey12_1.zip / FL.LSP < prev    next >
Text File  |  1992-09-13  |  295b  |  15 lines
  1. ;Freeze Multiple Layers
  2. ;
  3. ;
  4. (setq oer *error* *error* err2)
  5. (setq ss (ssget))
  6. (setq counter 0)
  7. (prompt "Freezing layers...")
  8. (while
  9.   (setq e (ssname ss counter))
  10.   (setq fl (cdr (assoc 8 (entget e))))
  11. (progn
  12.   (command "layer" "f" fl ""))
  13.   (setq counter (+ counter 1))
  14. (princ))
  15.